From: Nick Roberts Date: Fri, 13 Apr 2007 03:57:37 +0000 (+0000) Subject: (tmm-get-keybind): Use car-safe to avoid errors with X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~914 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=596bafcf9432263f83992596eb106c2aaffc03dc;p=emacs.git (tmm-get-keybind): Use car-safe to avoid errors with inherited keymaps. --- diff --git a/lisp/tmm.el b/lisp/tmm.el index d441db76235..087d864d0c3 100644 --- a/lisp/tmm.el +++ b/lisp/tmm.el @@ -547,9 +547,9 @@ of `menu-bar-final-items'." ;; the global list. (dolist (minor minorbind) (dolist (item (cdr minor)) - (setq globalbind (assq-delete-all (car item) globalbind)))) + (setq globalbind (assq-delete-all (car-safe item) globalbind)))) (dolist (item (cdr localbind)) - (setq globalbind (assq-delete-all (car item) globalbind))) + (setq globalbind (assq-delete-all (car-safe item) globalbind))) (setq globalbind (cons 'keymap globalbind)) (setq allbind (cons globalbind (cons localbind minorbind)))